home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / TCP-IP Dat234337242001.psc / DC.bas < prev    next >
Encoding:
BASIC Source File  |  2001-04-12  |  1.1 KB  |  45 lines
  1. Attribute VB_Name = "DC"
  2. Public Versie As Byte
  3.  
  4. Function StringZoek(str1 As String) As Boolean
  5. Dim result
  6.  
  7. If Versie = 0 Then
  8. 'Origineel = "$MyINFO"... 0.9977
  9. result = InStr(1, str1, "$MyINFO")
  10. ElseIf Versie = 1 Then
  11. result = InStr(1, str1, "$Version 1,0005|$GetNickList|$MyINFO")
  12. End If
  13. If result <> 0 Then
  14. StringZoek = True
  15. 'MsgBox "ok"
  16. Else
  17. StringZoek = False
  18. End If
  19. End Function
  20.  
  21. Function Verander_HD(str As String, MB As String) As String
  22. 'Replace string.
  23. 'strbegin = Mid(str, 1, X - 1)
  24. MB = (Val(MB) * 1.08)
  25. strVerander = MB & 999 & 999
  26. 'Zoeken naar 5Θ $ teken
  27. If Versie = 0 Then
  28. ZoekD = 3
  29. Else
  30. ZoekD = 33
  31. End If
  32. For teller = 1 To 5
  33. dollar = InStr(ZoekD, str, "$", vbTextCompare)
  34. 'MsgBox "$ gevonden op:" & dollar & "teller: " & teller
  35. ZoekD = dollar + 1
  36. Next teller
  37. 'Laastste maal zoeken.. 6Θ $ teken
  38. dollar = InStr(ZoekD, str, "$", vbTextCompare)
  39. 'Wissen data in text1 voor buffer..MBYTE
  40. StrBegin = Mid(str, 1, ZoekD - 1)
  41. StrEinde = Mid(str, dollar, Len(str))
  42. str = StrBegin + strVerander + StrEinde
  43. Verander_HD = str
  44. End Function
  45.